﻿Imports cerveza

Public Class ProductoNuevoForm

    Public productosForm As ProductosForm

    Private Sub btnGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuardar.Click

        Dim negocio As New ProductoNegocio
        Try
            If lblId.Text <> "" Then
                negocio.actualizar(lblId.Text, Me.txtNombre.Text, Me.txtDescripcion.Text, Me.txtCosto.Text, Me.txtFecha.Value, Me.txtContador.Value)
            Else
                negocio.insertar(Me.txtNombre.Text, Me.txtDescripcion.Text, Me.txtCosto.Text, Me.txtFecha.Value, Me.txtContador.Value)
            End If

            Me.productosForm.dgvCategorias.DataSource = ""

            Me.Close()
        Catch ex As Exception
            lblMensaje.Text = "Hubo un error al guardar"
        End Try



    End Sub

    Private Sub CategoriaNuevoForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If lblId.Text <> "" Then
            Dim negocio As New ProductoNegocio
            Dim modelo = negocio.obtener(lblId.Text)
            txtNombre.Text = modelo.nombre
            txtDescripcion.Text = modelo.descripcion
            txtCosto.Text = modelo.costo


        End If
    End Sub

    
End Class